/*  slmsetln.cpp  by K.Tsuru  */
// function ID = 205  DRADIX, BRADIX
/********************************
SLong , SInteger class
set a long value v
*********************************/
#ifndef SN_H
#include "sn.h"
#endif
void SLong::SetLong(long v){
    if( RawSign() ) SetZero();
    if(v == 0) return;

    long absV = labs(v), rdx = (long)Radix();
    uint j = 0;
    while(absV){
        figure[j] = (fType)(absV % rdx);
        absV /= rdx;    j++;
    }
    aHead = j-1;
    while(figure[aTail] == 0) aTail++;
    SetSign(v);
}